home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 19 / tpnet.zip / PASNETA.ASM < prev    next >
Assembly Source File  |  1987-05-07  |  27KB  |  1,807 lines
  1. Page 80,132
  2. ;*******************************************************
  3. ;*                               *
  4. ;* VERSION: 1.0                        *
  5. ;*                               *
  6. ;* MODULE NAME: PASNET.ASM    Language Interface     *
  7. ;*                               *
  8. ;* DESCRIPTION:  NetWare interface drivers           *                         *
  9. ;*                               *
  10. ;*        Borland Turbo Pascal interface           *
  11. ;*                               *
  12. ;* INPUTS:  Refer to individual procedures.           *
  13. ;*                               *
  14. ;*                               *
  15. ;* RETURNS (OUTPUTS)  Refer to individual procedures.  *
  16. ;*                               *
  17. ;*                               *
  18. ;*******************************************************
  19.  
  20. title    Turbo Pascal - NetWare Interface Module
  21.  
  22. ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++
  23. ;+                               +
  24. ;+ For the following Turbo Pascal interface see        +
  25. ;+ the Borland Turbo Tutor manual and the           +
  26. ;+ Reference Manual                       +
  27. ;+                               +
  28. ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++
  29.  
  30. cseg    segment byte public 'cseg'
  31.     assume    cs:cseg
  32.  
  33. public    xtndopn, setattr, eojstat, PRLH_Log, PRLH_Rel, PRLH_Clr, PRLF_Log
  34. public    PRLF_Rel, PRLF_Clr, PRLS_Lck, PRLS_Rel, PRLS_Clr, OpenSem, ExamSem
  35. public    WaitSem, SigSem, ClosSem, setlck, Bakouts, btrans, etrans, exclog
  36. public    exclcks, exculkf, exculks, excclrf, excclrs, reclog, reclck, reculk
  37. public    reculks, recclr, recclrs, eoj, sysout, volstat
  38. public    locdrv, wsid, errmode, bcsmode, ctlspl, splreq, pipreq, dpath, syslog
  39. public    fattr, updfcb, cpyfile, nettod, clsmode, drvmap, retshl, asclog
  40. public    asculkf, ascclrf, Get_PSN, Get_STA, SetServ, ModServ
  41.  
  42.  
  43.  
  44. ;     vector table - starts at 0000, with each ensuing call
  45. ;    offset by 3 (the jmp instruction and an offset address)
  46.     jmp    near ptr xtndopn
  47.     jmp    near ptr setattr
  48.     jmp    near ptr eojstat
  49.     jmp    near ptr PRLH_Log
  50.     jmp    near ptr PRLH_Rel
  51.     jmp    near ptr PRLH_Clr
  52.     jmp    near ptr PRLF_Log
  53.     jmp    near ptr PRLF_Rel
  54.     jmp    near ptr PRLF_Clr
  55.     jmp    near ptr PRLS_Lck
  56.     jmp    near ptr PRLS_Rel
  57.     jmp    near ptr PRLS_Clr
  58.     jmp    near ptr OpenSem
  59.     jmp    near ptr ExamSem
  60.     jmp    near ptr WaitSem
  61.     jmp    near ptr SigSem
  62.     jmp    near ptr ClosSem
  63.     jmp    near ptr setlck
  64.     jmp    near ptr Bakouts
  65.     jmp    near ptr btrans
  66.     jmp    near ptr etrans
  67.     jmp    near ptr exclog
  68.     jmp    near ptr exclcks
  69.     jmp    near ptr exculkf
  70.     jmp    near ptr exculks
  71.     jmp    near ptr excclrf
  72.     jmp    near ptr excclrs
  73.     jmp    near ptr reclog
  74.     jmp    near ptr reclck
  75.     jmp    near ptr reculk
  76.     jmp    near ptr reculks
  77.     jmp    near ptr recclr
  78.     jmp    near ptr recclrs
  79.     jmp    near ptr eoj
  80.     jmp    near ptr sysout
  81.     jmp    near ptr volstat
  82.     jmp    near ptr locdrv
  83.     jmp    near ptr wsid
  84.     jmp    near ptr errmode
  85.     jmp    near ptr bcsmode
  86.     jmp    near ptr ctlspl
  87.     jmp    near ptr splreq
  88.     jmp    near ptr pipreq
  89.     jmp    near ptr dpath
  90.     jmp    near ptr syslog
  91.     jmp    near ptr fattr
  92.     jmp    near ptr updfcb
  93.     jmp    near ptr cpyfile
  94.     jmp    near ptr nettod
  95.     jmp    near ptr clsmode
  96.     jmp    near ptr drvmap
  97.     jmp    near ptr retshl
  98.     jmp    near ptr asclog
  99.     jmp    near ptr asculkf
  100.     jmp    near ptr ascclrf
  101.     jmp    near ptr Get_PSN
  102.     jmp    near ptr Get_STA
  103.     jmp    near ptr SetServ
  104.     jmp    near ptr ModServ
  105.  
  106.  
  107.  
  108. ;--------------------------------
  109. ; Extended Open a File func(61) (3DH)
  110. ;
  111. ; var
  112. ;    Mode, Handle, RetCode : Integer;
  113. ;    Filename          : String[n];
  114. ;
  115. ; RetCode := xtndopn(Mode, Handle, Filename);
  116. ;
  117.  
  118. xtndopn proc    near
  119.     push    bp
  120.     mov    bp,sp
  121.     push    ds
  122.     lds    si,[bp+12]      ; put the mode in ax
  123.     mov    ax,[si]
  124.     mov    ah,03Dh         ; put the function in ah
  125.     lds    dx,[bp+4]       ;ptr to ASCIIZ string
  126.     inc    dx            ;add 1 to get to the beginning of the string
  127.     int    21h
  128.     jnc    noerr
  129.     jmp    quit
  130. noerr:
  131.     lds    di,[bp+8]       ;put the handle into the variable
  132.     mov    [di],ax          ;if there is no error and
  133.     xor    ax,ax             ;return a 0
  134. quit:
  135.     pop    ds
  136.     pop    bp
  137.     ret    14
  138. xtndopn endp
  139.  
  140.  
  141.  
  142.  
  143. ;--------------------------------
  144. ; Get or Set File Attributes(handle) func(67) (43H)
  145. ;
  146. ; var
  147. ;    Func, Attribute, ErrCode : Integer;
  148. ;    Filename         : String[n];
  149. ;
  150. ;ErrCode := setattr(Func, Attribute, Filename);
  151. ;
  152.  
  153. setattr proc    near
  154.     push    bp
  155.     mov    bp,sp
  156.     push    ds
  157.     lds    si,[bp+12]      ; put the subfunction in ax
  158.     mov    ax,[si]
  159.     mov    ah,043h         ; put the function in ah
  160.     lds    dx,[bp+4]       ;ptr to var desc block for ASCIIZ string
  161.     inc    dx            ;add 1 to get the address of the string
  162.     lds    si,[bp+8]       ;put the attribute to set in cx
  163.     mov    cx,[si]
  164.     int    21h
  165.     jnc    okay
  166.     mov    ah,00h
  167.     jmp    getout
  168. okay:
  169.     lds    di,[bp+8]       ;put the returned attributes in the
  170.     mov    [di],cx         ;variable if there is no error
  171.     xor    ax,ax            ;and return a 0
  172. getout:
  173.     pop    ds
  174.     pop    bp
  175.     ret    14
  176. setattr endp
  177.  
  178.  
  179.  
  180.  
  181. ;--------------------------------
  182. ; End of Job Flag Status func(187) (BBH)
  183. ;
  184. ; var
  185. ;    Flag : Integer;
  186. ;
  187. ;ErrCode := eojstat(Flag);
  188. ;
  189.  
  190. eojstat proc    near
  191.     push    bp
  192.     mov    bp,sp
  193.     push    ds
  194.     lds    si,[bp+4]   ; put the flag in ax
  195.     mov    ax,[si]
  196.     mov    ah,0BBh     ; put the function in ah
  197.     int    21h
  198.     mov    ah,0
  199.     lds    di,[bp+4]
  200.     mov    [di],ax
  201.     pop    ds
  202.     pop    bp
  203.     ret    6
  204. eojstat endp
  205.  
  206.  
  207.  
  208.  
  209. ;------------------------------------------------------------
  210. ;
  211. ; Physical Record Lock: Log Record   BCH
  212. ;
  213. ; var
  214. ;    ErrCode,FileHandle,HiByteOffset,LoByteOffset : Integer
  215. ;    HiLockLen,LoLockLen,Flags,TimeOut         : Integer
  216. ;
  217. ;ErrCode := PRLH_Log(FileHandle,HiByteOffset,LoByteOffset,HiLockLen,
  218. ;             LoLockLen,Flags,TimeOut);
  219. ;
  220.  
  221. PRLH_Log proc    near
  222.     push    bp
  223.     mov    bp,sp
  224.     push    ds
  225.     lds    si,[bp+28]        ;FileHandle
  226.     mov    bx,[si]
  227.     lds    si,[bp+24]        ;ByteOffset
  228.     mov    cx,[si]
  229.     lds    si,[bp+20]
  230.     mov    dx,[si]
  231.     lds    si,[bp+8]        ;AL = Log Flags
  232.     mov    ax,[si]
  233.     lds    si,[bp+16]        ;LockLen
  234.     mov    si,[si]
  235.     lds    di,[bp+12]
  236.     mov    di,[di]
  237.     lds    bp,[bp+4]        ;time out
  238.     mov    bp,[bp]
  239.     mov    ah,0BCH
  240.     int    21H
  241.     mov    ah,0            ;0 the high byte of the return
  242.     pop    ds
  243.     pop    bp
  244.     ret    30
  245.  
  246. PRLH_Log endp
  247.  
  248.  
  249.  
  250.  
  251.  
  252. ;-----------------------------------------
  253. ;
  254. ; Physical Record Lock: Release Rec  BDH
  255. ;
  256. ; var
  257. ;    FileHandle,HiByteOffset,LoByteOffset,ErrCode,
  258. ;       HiWordLen,LoWordLen : integer;
  259. ;
  260. ; ErrCode := PRLH_Rel(FileHandle,HiByteOffset,LoByteOffset,HiWordLen,
  261. ;                           LoWordLen:integer);
  262.  
  263.  
  264. PRLH_Rel proc    near
  265.     push    bp
  266.     mov    bp,sp
  267.     push    ds
  268.     lds    si,[bp+20]        ;FileHandle
  269.     mov    bx,[si]
  270.     lds    si,[bp+16]               ;HiByteOffset
  271.     mov    cx,[si]
  272.     lds    si,[bp+12]            ;LoByte
  273.     mov    dx,[si]
  274.      lds     si,[bp+8]             ;HiWordLen
  275.      mov     si,[si]
  276.      lds     di,[bp+4]             ;LoWordLen
  277.      mov     di,[di]
  278.     mov    ah,0BDH
  279.     int    21H
  280.     mov    ah,0
  281.     pop    ds
  282.     pop    bp
  283.     ret    22
  284. PRLH_Rel endp
  285.  
  286.  
  287.  
  288.  
  289.  
  290. ;------------------------------------------------
  291. ;
  292. ; Physical Record Lock: Release Clr  BEH
  293. ;
  294. ; var
  295. ;    FileHandle,HiByteOffset,LoByteOffset,ErrCode,
  296. ;    HiWordLen,LoWordLen : integer;
  297. ; 
  298. ;  ErrCode := PRLH_Rel(FileHandle,HiByteOffset,LoByteOffset,HiWordLen,
  299. ;                           LoWordLen:integer);
  300. ;
  301.  
  302.  
  303. PRLH_Clr proc    near
  304.     push    bp
  305.     mov    bp,sp
  306.     push    ds
  307.     lds    si,[bp+20]        ;FileHandle
  308.     mov    bx,[si]
  309.     lds    si,[bp+16]               ;ByteOffset
  310.     mov    cx,[si]
  311.     lds    si,[bp+12]
  312.     mov    dx,[si]
  313.      lds     si,[bp+8]             ;HiWordLen
  314.      mov     si,[si]
  315.      lds     di,[bp+4]             ;LoWordLen
  316.      mov     di,[di]
  317.     mov    ah,0BEH
  318.     int    21H
  319.     mov    ah,0
  320.     pop    ds
  321.     pop    bp
  322.     ret    22
  323. PRLH_Clr endp
  324.  
  325.  
  326.  
  327.  
  328.  
  329. ;--------------------------------------------------
  330. ;
  331. ; Physical Record Lock: Log Rec FCB BFH
  332. ;
  333. ; var
  334. ;    ErrCode,fcb,HiByteOffset,LoByteOffset : Integer;
  335. ;    HiLockLen,LoLockLen,Flags,TimeOut     : Integer;
  336. ;
  337. ; ErrCode := PRLF_Log(fcb,HiByteOffset,LoByteOffset,HiLockLen,LoLockLen,Flags,TimeOut);
  338. ;
  339.  
  340.  
  341. PRLF_Log proc    near
  342.     push    bp
  343.     mov    bp,sp
  344.     push    ds
  345.     lds    si,[bp+28]              ;FCB
  346.     mov    dx,[si]
  347.     lds    si,[bp+24]              ;ByteOffset
  348.     mov    bx,[si]
  349.     lds    si,[bp+20]
  350.     mov    cx,[si]
  351.     lds    si,[bp+8]             ;AL = Log Flags
  352.     mov    ax,[si]
  353.     lds    si,[bp+12]              ;low lock length
  354.     mov    di,[si]
  355.     lds    si,[bp+16]              ;hi lock length
  356.     mov    si,[si]
  357.     mov    bp,[bp+4]             ;timeout value
  358.     mov    bp,[bp]
  359.     mov    ah,0BFH
  360.     int    21H
  361.     mov    ah,0
  362.     pop    ds
  363.     pop    bp
  364.     ret    28
  365. PRLF_Log endp
  366.  
  367.  
  368.  
  369.  
  370.  
  371. ;--------------------------------------------------
  372. ;
  373. ; Physical Record Lock: Rel Rec FCB C0H
  374. ;
  375. ; var
  376. ;    ErrCode,fcb,HiByteOffset,LoByteOffset : Integer;
  377. ;
  378. ; ErrCode := PRLF_Rel(fcb,HiByteOffset,LoByteOffset);
  379. ;
  380.  
  381.  
  382. PRLF_Rel proc    near
  383.     push    bp
  384.     mov    bp,sp
  385.     push    ds
  386.     lds    dx,[bp+12]              ;FCB
  387.     lds    si,[bp+8]             ;ByteOffset
  388.     mov    bx,[si]
  389.     lds    si,[bp+4]
  390.     mov    cx,[si]
  391.     mov    ah,0C0H
  392.     int    21H
  393.     mov    ah,0
  394.     pop    ds
  395.     pop    bp
  396.     ret    12
  397. PRLF_Rel endp
  398.  
  399.  
  400.  
  401.  
  402.  
  403. ;-----------------------------------------------
  404. ;
  405. ; Physical Record Lock: Clr Rec FCB C1H
  406. ;
  407. ; var
  408. ;    ErrCode,fcb,HiByteOffset,LoByteOffset : Integer;
  409. ;
  410. ; ErrCode := PRLF_clr(fcb,HiByteOffset,LoByteOffset);
  411. ;
  412.  
  413.  
  414. PRLF_Clr proc    near
  415.     push    bp
  416.     mov    bp,sp
  417.     push    ds
  418.     lds    dx,[bp+12]              ;FCB
  419.     lds    si,[bp+8]             ;ByteOffset
  420.     mov    bx,[si]
  421.     lds    si,[bp+4]
  422.     mov    cx,[si]
  423.     mov    ah,0C0H
  424.     int    21H
  425.     mov    ah,0
  426.     pop    ds
  427.     pop    bp
  428.     ret    12
  429. PRLF_Clr endp
  430.  
  431.  
  432.  
  433.  
  434.  
  435. ;---------------------------------------------
  436. ;
  437. ; Lock Record Set  C2H
  438. ;
  439. ; var
  440. ;    ErrCode, Flags, TimeOut : Integer;
  441. ;
  442. ; ErrCode := PRLS_Lck(Flags,TimeOut);
  443. ;
  444.  
  445.  
  446. PRLS_Lck proc    near
  447.     push    bp
  448.     mov    bp,sp
  449.     push    ds
  450.     lds    si,[bp+8]               ;AL = Lock flag bits
  451.     mov    ax,[si]
  452.     lds    si,[bp+4]               ;TimeOut Value
  453.     mov    bp,[si]
  454.     mov    ah,0C2h
  455.     int    21h
  456.     mov    ah,0
  457.     pop    ds
  458.     pop    bp
  459.     ret    10
  460. PRLS_Lck endp
  461.  
  462.  
  463.  
  464.  
  465.  
  466. ;----------------------------------------------
  467. ;
  468. ; Release Record Set  C3H
  469. ;
  470. ; var
  471. ;    ErrCode : Integer;
  472. ;
  473. ; ErrCode := PRLS_Rel;
  474. ;
  475.  
  476.  
  477. PRLS_Rel proc    near
  478.     mov    ah,0C3h
  479.     int    21h
  480.     mov    ah,0
  481.     ret
  482. PRLS_Rel endp
  483.  
  484.  
  485.  
  486.  
  487.  
  488. ;----------------------------------------------
  489. ;
  490. ; Clear Record Set  C4H
  491. ;
  492. ; var
  493. ;    ErrCode : Integer;
  494. ;
  495. ; errcode := PRLS_Clr;
  496. ;
  497.  
  498.  
  499. PRLS_Clr proc    near
  500.     mov    ah,0C4h
  501.     int    21h
  502.     mov    ah,0
  503.     ret
  504. PRLS_Clr endp
  505.  
  506.  
  507.  
  508.  
  509.  
  510. ;--------------------------------
  511. ; Semaphores func(197) (C5H) subfunction 00h
  512. ;
  513. ; var
  514. ;    RetCode,SemaValu,HiHandle,LoHandle,OpenCnt : Integer;
  515. ;    Sema4 : String[n];
  516. ;
  517. ; RetCode := OpenSem(Sema4,SemaValu,HiHandle,LoHandle,OpenCnt);
  518. ;
  519.  
  520.  
  521. OpenSem proc    near
  522.     push    bp
  523.     mov    bp,sp
  524.     push    ds
  525.     lds    dx,[bp+20]      ;ptr to Semaphore string
  526.     lds    si,[bp+16]      ;set semaphore value
  527.     mov    cx,[si]
  528.     mov    ax,0C500h        ;set the function
  529.     int    21h
  530.     mov    bh,00h
  531.     lds    di,[bp+4]      ;return the open count
  532.     mov    [di],bx
  533.     lds    di,[bp+8]      ;return low handle
  534.     mov    [di],cx
  535.     lds    di,[bp+12]      ;return high handle
  536.     mov    [di],dx
  537.     mov    ah,00h
  538.     pop    ds
  539.     pop    bp
  540.     ret    22
  541. OpenSem endp
  542.  
  543.  
  544.  
  545.  
  546.  
  547. ;--------------------------------
  548. ; Semaphores func(197) (C5H) subfunction 01h
  549. ;
  550. ; var
  551. ;    RetCode,HiHandle,LoHandle,SemaValu,OpenCnt : Integer;
  552. ;
  553. ; RetCode := ExamSem(HiHandle,LoHandle,SemaValu,OpenCnt);
  554. ;
  555.  
  556.  
  557. ExamSem proc    near
  558.     push    bp
  559.     mov    bp,sp
  560.     push    ds
  561.     lds    si,[bp+16]        ;hi handle
  562.     mov    dx,[si]
  563.     lds    si,[bp+12]        ;lo handle
  564.     mov    cx,[si]
  565.     mov    ax,0C501h        ;set function
  566.     int    21h
  567.     lds    di,[bp+8]               ;return semaphore value
  568.     mov    [di],cx
  569.     mov    dh,00h
  570.     lds    di,[bp+4]
  571.     mov    [di],dx              ;return open count
  572.     mov    ah,00h
  573.     pop    ds
  574.     pop    bp
  575.     ret    16
  576. ExamSem endp
  577.  
  578.  
  579.  
  580.  
  581.  
  582. ;--------------------------------
  583. ; Semaphores func(197) (C5H) subfunction 02h
  584. ;
  585. ; var
  586. ;    RetCode,HiHandle,LoHandle,TimeOut : Integer;
  587. ;
  588. ; RetCode := WaitSem(HiHandle,LoHandle,TimeOut);
  589. ;
  590.  
  591.  
  592. WaitSem proc    near
  593.     push    bp
  594.     mov    bp,sp
  595.     push    ds
  596.     lds    si,[bp+12]        ;hi handle
  597.     mov    dx,[si]
  598.     lds    si,[bp+8]               ;lo handle
  599.     mov    cx,[si]
  600.     lds    si,[bp+4]
  601.     mov    bp,[si]              ;set time out
  602.     mov    ax,0C502h        ;set function
  603.     int     21h
  604.     mov    ah,00h
  605.     pop    ds
  606.     pop    bp
  607.     ret    12
  608. WaitSem endp
  609.  
  610.  
  611.  
  612.  
  613.  
  614. ;--------------------------------
  615. ; Semaphores func(197) (C5H) subfunction 03h
  616. ;
  617. ; var
  618. ;    RetCode,HiHandle,LoHandle : Integer;
  619. ;
  620. ; RetCode := SigSem(HiHandle,LoHandle);
  621. ;
  622.  
  623.  
  624. SigSem    proc    near
  625.     push    bp
  626.     mov    bp,sp
  627.     push    ds
  628.     lds    si,[bp+8]               ;hi handle
  629.     mov    dx,[si]
  630.     lds    si,[bp+4]               ;lo handle
  631.     mov    cx,[si]
  632.     mov    ax,0C503h        ;set function
  633.     int    21h
  634.     mov    ah,00h
  635.     pop    ds
  636.     pop    bp
  637.     ret    8
  638. SigSem    endp
  639.  
  640.  
  641.  
  642.  
  643.  
  644. ;--------------------------------
  645. ; Semaphores func(197) (C5H) subfunction 04h
  646. ;
  647. ; var
  648. ;    RetCode,HiHandle,LoHandle : Integer;
  649. ;
  650. ; RetCode := ClosSem(HiHandle,LoHandle);
  651. ;
  652.  
  653.  
  654. ClosSem proc    near
  655.     push    bp
  656.     mov    bp,sp
  657.     push    ds
  658.     lds    si,[bp+8]               ;hi handle
  659.     mov    dx,[si]
  660.     lds    si,[bp+4]               ;lo handle
  661.     mov    cx,[si]
  662.     mov    ax,0C504h        ;set function
  663.     int    21h
  664.     mov    ah,00h
  665.     pop    ds
  666.     pop    bp
  667.     ret    8
  668. ClosSem endp
  669.  
  670.  
  671.  
  672.  
  673.  
  674. ;--------------------------------
  675. ; Get or Set Lock Mode func(198) (C6H)
  676. ;
  677. ; var
  678. ;    Mode,Func : Integer;
  679. ;
  680. ; Mode := setlck(Func);
  681. ;
  682.  
  683.  
  684. setlck    proc    near
  685.     push    bp
  686.     mov    bp,sp
  687.     push    ds
  688.     lds    si,[bp+4]
  689.     mov    ax,[si]               ;set the subfunction
  690.     mov    ah,0C6h         ;set  the function
  691.     int    21h
  692.     mov    ah,0
  693.     pop    ds
  694.     pop    bp
  695.     ret    4
  696. setlck endp
  697.  
  698.  
  699.  
  700.  
  701.  
  702. ;--------------------------------
  703. ; Transactional Backout func(199) (C7H)
  704. ;
  705. ; var
  706. ;    RetCode, Func : Integer;
  707. ;
  708. ; RetCode := BakOuts(Func);
  709. ;
  710.  
  711.  
  712. BakOuts proc    near
  713.     push    bp
  714.     mov    bp,sp
  715.     push    ds
  716.     lds    si,[bp+4]               ;set the subfunction
  717.     mov    ax,[si]
  718.     mov    ah,0C7h         ;set  the function
  719.     int    21h
  720.     mov    ah,0
  721.     pop    ds
  722.     pop    bp
  723.     ret    4
  724. BakOuts endp
  725.  
  726.  
  727.  
  728.  
  729.  
  730. ;--------------------------------
  731. ; Begin transaction  func(200) (C8H)
  732. ;
  733. ; var
  734. ;    RetCode,Mode : Integer;
  735. ;
  736. ; RetCode := btrans(Mode);
  737. ;
  738.  
  739.  
  740. btrans    proc    near
  741.     mov    ah,0C8h
  742.     call    arg1t
  743.     ret    4
  744. btrans    endp
  745.  
  746.  
  747.  
  748.  
  749.  
  750. ;--------------------------------
  751. ; End Transaction func(201) (C9H)
  752. ;
  753. ; var
  754. ;    RetCode : Integer;
  755. ;
  756. ; RetCode := etrans;
  757. ;
  758.  
  759.  
  760. etrans    proc    near
  761.     mov    ah,0C9H
  762.     int    021h
  763.     mov    ah,00h
  764.     ret
  765. etrans    endp
  766.  
  767.  
  768.  
  769.  
  770.  
  771. ;--------------------------------
  772. ; Exc.log File (202) (CA)
  773. ;
  774. ; var
  775. ;    RetCode, FcbAddr : Integer;
  776. ;
  777. ; RetCode := exclog(FcbAddr);
  778. ;
  779.  
  780. exclog    proc    near
  781.     mov    ah,0CAH
  782.     call    arg1f
  783.     ret    4
  784. exclog    endp
  785.  
  786.  
  787.  
  788.  
  789.  
  790. ;--------------------------------
  791. ; Exc Lock Set    func(203) (CBH)
  792. ;
  793. ; var
  794. ;    RetCode, Mode : Integer;
  795. ;
  796. ; RetCode := exclcks(Mode);
  797. ;
  798.  
  799.  
  800. exclcks proc    near
  801.     mov    ah,0CBH
  802.     call    arg1
  803.     ret    4
  804. exclcks endp
  805.     
  806.  
  807.  
  808.  
  809. ;--------------------------------
  810. ; Exclusive file unlock (204) (CC)
  811. ;
  812. ; var
  813. ;    RetCode, FcbAddr : Integer;
  814. ;
  815. ; RetCode := exculkf(FcbAddr);
  816. ;
  817.  
  818.  
  819. exculkf proc    near
  820.     mov    ah,0CCH
  821.     call    arg1f
  822.     ret    4
  823. exculkf endp
  824.  
  825.  
  826.  
  827.  
  828.  
  829. ;--------------------------------
  830. ; Exclusive Unlock Set (205)(CD)
  831. ;
  832. ; var
  833. ;    RetCode : Integer;
  834. ;
  835. ; RetCode := exculks;
  836. ;
  837.  
  838.  
  839. exculks proc    near
  840.     mov    ah,0CDH
  841.     int    21h
  842.     mov    ah,00h
  843.     ret
  844. exculks endp
  845.  
  846.  
  847.  
  848.     
  849.  
  850. ;--------------------------------
  851. ; Exc Clear file func(206) (CEH)
  852. ;
  853. ; var
  854. ;    RetCode, FcbAddr : Integer;
  855. ;
  856. ; RetCode := excclrf(FcbAddr);
  857. ;
  858.  
  859.  
  860. excclrf proc    near
  861.     mov    ah,0CEH
  862.     call    arg1f
  863.     ret    4
  864. excclrf endp
  865.  
  866.  
  867.  
  868.  
  869.  
  870. ;--------------------------------
  871. ; Exc Clear Set  func(207) (CFH)
  872. ;
  873. ; var
  874. ;    RetCode : Integer;
  875. ;
  876. ; RetCode := excclrs;
  877. ;
  878.  
  879.  
  880. excclrs proc    near
  881.     mov    ah,0CFH
  882.     int    21h
  883.     mov    ah,00h
  884.     ret
  885. excclrs endp
  886.  
  887.  
  888.  
  889.  
  890.  
  891. ;--------------------------------
  892. ; Log Record(s) func(208) (D0H)
  893. ;
  894. ; var
  895. ;    RetCode, Flag, Timeout : Integer ;
  896. ;    RecStr    : String[n];
  897. ;
  898. ; RetCode := reclog(RecStr,Flag,Timeout);
  899. ;
  900.  
  901.  
  902. reclog    proc    near
  903.      push     bp
  904.      mov     bp,sp
  905.      push     ds
  906.      lds     si,[bp+8]          ;load flags
  907.      mov     ax,[si]
  908.      lds     si,[bp+4]          ;get timeout
  909.      mov     si,[si]
  910.      lds     dx,[bp+12]         ;get ptr to string
  911.      mov     bp,si              ;move timeout to BP
  912.      mov     ah,0D0h
  913.      int     21h
  914.      mov     ah,0
  915.      pop     ds
  916.      pop     bp
  917.      ret     14
  918. reclog    endp
  919.  
  920.  
  921.  
  922.  
  923.  
  924.  
  925. ;--------------------------------
  926. ; Record Lock func(209) (D1H)
  927. ;
  928. ; var
  929. ;    RetCode, Mode : Integer;
  930. ;
  931. ; RetCode := reclck(Mode);
  932. ;
  933.  
  934.  
  935. reclck    proc    near
  936.      push     bp
  937.      mov     bp,sp
  938.      push     ds
  939.      lds     si,[bp+4]
  940.      mov     bp,[si]
  941.      mov     ah,0D1h
  942.      int     21h
  943.      mov     ah,0
  944.      pop     ds
  945.      pop     bp
  946.      ret     6
  947. reclck    endp
  948.  
  949.  
  950.  
  951.  
  952.  
  953. ;--------------------------------
  954. ; Record Unlock func(210) (D2H)
  955. ;
  956. ; var
  957. ;    RetCode   : Integer;
  958. ;    Semaphore : String[n];
  959. ;
  960. ; RetCode := reculk(Semaphore);
  961. ;
  962.  
  963.  
  964. reculk    proc    near
  965.     mov    ah,0D2H
  966.     call    arg1a
  967.     ret    4
  968. reculk    endp
  969.  
  970.  
  971.  
  972.  
  973.  
  974. ;--------------------------------
  975. ; Unlock Record Set func(211) (D3H)
  976. ;
  977. ; var
  978. ;    RetCode : Integer;
  979. ;
  980. ; RetCode := reculks;
  981. ;
  982.  
  983.  
  984. reculks proc    near
  985.     mov    ah,0D3H
  986.     int    21h
  987.     mov    ah,00h
  988.     ret
  989. reculks endp
  990.  
  991.  
  992.  
  993.  
  994.  
  995. ;--------------------------------
  996. ; Record Clear func(212) (D4H)
  997. ;
  998. ; var
  999. ;    RetCode   : Integer;
  1000. ;    Semaphore : String[n];
  1001. ;
  1002. ; RetCode := recclr(Semaphore);
  1003. ;
  1004.  
  1005.  
  1006. recclr    proc    near
  1007.     mov    ah,0D4H
  1008.     call    arg1a
  1009.     ret    4
  1010. recclr    endp
  1011.  
  1012.  
  1013.  
  1014.  
  1015.  
  1016. ;--------------------------------
  1017. ; Clear record set func(213) (D5H)
  1018. ;
  1019. ; var
  1020. ;    RetCode : Integer;
  1021. ;
  1022. ; RetCode := recclrs;
  1023. ;
  1024.  
  1025.  
  1026. recclrs proc    near
  1027.     mov    ah,0D5H
  1028.     int    21h
  1029.     mov    ah,00h
  1030.     ret    4
  1031. recclrs endp
  1032.  
  1033.  
  1034.  
  1035.  
  1036.  
  1037. ;--------------------------------
  1038. ; End of Job  func(214) (D6H)
  1039. ;
  1040. ; var
  1041. ;    RetCode : Integer;
  1042. ;
  1043. ; RetCode := eoj;
  1044. ;
  1045.  
  1046. eoj    proc    near
  1047.     mov    ah,0D6H
  1048.     int    21h
  1049.     mov    ah,00h
  1050.     ret    4
  1051. eoj    endp
  1052.  
  1053.  
  1054.  
  1055.  
  1056.  
  1057. ;--------------------------------
  1058. ; Logout System  func(215) (D7H)
  1059. ;
  1060. ; var
  1061. ;    RetCode : Integer;
  1062. ;
  1063. ; RetCode := sysout;
  1064. ;
  1065.  
  1066.  
  1067. sysout    proc    near
  1068.     mov    ah,0D7H
  1069.     int    21h
  1070.     mov    ah,00h
  1071.     ret    4
  1072. sysout    endp
  1073.  
  1074.  
  1075.  
  1076.  
  1077.  
  1078. ;--------------------------------
  1079. ; Vol Statistics func(218) (DAH)
  1080. ;
  1081. ; var
  1082. ;    RetCode,volume : Integer;
  1083. ;    reply  : String[n];
  1084. ;
  1085. ; RetCode := volstat(volume, reply);
  1086.  
  1087.  
  1088. volstat proc    near
  1089.     mov    ah,0DAh
  1090.     push    bp
  1091.     mov    bp,sp
  1092.     push    ds
  1093.     push    es
  1094.     lds    si,[bp+8]     ;addr for the volume number
  1095.     mov    dx,[si]       ;get the volume number
  1096.     les    di,[bp+4]     ;ptr to reply buffer
  1097.     inc    di          ;add 1 to get the address of the string
  1098.     int    21h
  1099.     mov    ah,00h
  1100.     pop    es
  1101.     pop    ds
  1102.     pop    bp
  1103.     ret    8
  1104. volstat endp
  1105.  
  1106.  
  1107.  
  1108.  
  1109.  
  1110. ;--------------------------------
  1111. ; Local Disks  func(219) (DBH)
  1112. ;
  1113. ; var
  1114. ;    NumDisks : Integer;
  1115. ;
  1116. ; NumDisks := locdrv;
  1117. ;
  1118.  
  1119.  
  1120. locdrv    proc    near
  1121.     mov    ah,0DBH
  1122.     int    21h
  1123.     mov    ah,00h
  1124.     ret
  1125. locdrv endp
  1126.  
  1127.  
  1128.  
  1129.  
  1130.  
  1131. ;--------------------------------
  1132. ; WorkStation ID func(220) (DCH)
  1133. ;
  1134. ; note: This routine returns the station number as an integer.
  1135. ;    It can also be returned in ASCII with this call.
  1136. ;
  1137. ; var
  1138. ;    StationNum : Integer;
  1139. ;
  1140. ; StationNum := wsid;
  1141. ;
  1142.  
  1143.  
  1144. wsid   proc    near
  1145.        mov     ah,0DCH
  1146.        int     21h
  1147.        mov     ah,00h
  1148.        ret
  1149. wsid   endp
  1150.  
  1151.  
  1152.  
  1153.  
  1154.  
  1155. ;--------------------------------
  1156. ; Set Error mode func(221) (DDH)
  1157. ;
  1158. ; var
  1159. ;    mode : Integer;
  1160. ;
  1161. ; errmode(mode);
  1162. ;
  1163.  
  1164.  
  1165. errmode proc    near
  1166.     mov    ah,0DDH
  1167.     call    arg1
  1168.     ret    4
  1169. errmode endp
  1170.  
  1171.  
  1172.  
  1173.  
  1174.  
  1175. ;--------------------------------
  1176. ; Broadcast Mode func(222) (DEH)
  1177. ;
  1178. ; var
  1179. ;    mode : Integer;
  1180. ;
  1181. ; bcsmode(mode);
  1182. ;
  1183.  
  1184. bcsmode proc    near
  1185.     mov    ah,0DEH
  1186.     call    arg1
  1187.     ret    4
  1188. bcsmode endp
  1189.  
  1190.  
  1191.  
  1192.  
  1193.  
  1194. ;--------------------------------
  1195. ; Modify LST Device  func(223) (DFH)
  1196. ;
  1197. ; var
  1198. ;    RetCode, Mode : Integer;
  1199. ;
  1200. ; RetCode := ctlspl(Mode);
  1201. ;
  1202.  
  1203. ctlspl    proc    near
  1204.     mov    ah,0DFh
  1205.     call    arg1
  1206.     ret    4
  1207. ctlspl    endp
  1208.  
  1209.  
  1210.  
  1211.  
  1212.  
  1213. ;--------------------------------
  1214. ; Spool Request func(224) (E0H)
  1215. ;
  1216. ; var
  1217. ;    ErrCode         : Integer;
  1218. ;    RequestBlock, Reply : String[n];
  1219. ;
  1220. ; ErrCode := splreq(RequestBlock, Reply);
  1221. ;
  1222.  
  1223. splreq    proc    near
  1224.     mov    ah,0E0h
  1225.     call    req_rep
  1226.     ret    8
  1227. splreq    endp
  1228.  
  1229.  
  1230.  
  1231.  
  1232.  
  1233. ;--------------------------------
  1234. ; Pipe Request func(225) (E1H)
  1235. ;
  1236. ; var
  1237. ;    ErrCode         : Integer;
  1238. ;    RequestBlock, Reply : String[n];
  1239. ;
  1240. ; ErrCode := pipreq(RequestBlock, Reply);
  1241. ;
  1242.  
  1243. pipreq    proc    near
  1244.     mov    ah,0E1h
  1245.     call    req_rep
  1246.     ret    8
  1247. pipreq    endp
  1248.  
  1249.  
  1250.  
  1251.  
  1252.  
  1253. ;--------------------------------
  1254. ; Directory Path func(226) (E2H)
  1255. ;
  1256. ; var
  1257. ;    ErrCode         : Integer;
  1258. ;    RequestBlock, Reply : String[n];
  1259. ;
  1260. ; ErrCode := dpath(RequestBlock, Reply);
  1261. ;
  1262.  
  1263. dpath    proc    near
  1264.     mov    ah,0E2h
  1265.     call    req_rep
  1266.     ret    8
  1267. dpath    endp
  1268.  
  1269.  
  1270.  
  1271.  
  1272.  
  1273. ;--------------------------------
  1274. ; Login system func(227) (E3H)
  1275. ;
  1276. ; var
  1277. ;    ErrCode         : Integer;
  1278. ;    RequestBlock, Reply : String[n];
  1279. ;
  1280. ; ErrCode := syslog(RequestBlock, Reply);
  1281. ;
  1282.  
  1283. syslog    proc    near
  1284.     mov    ah,0E3h
  1285.     call    req_rep
  1286.     ret    8
  1287. syslog    endp
  1288.  
  1289.  
  1290.  
  1291.  
  1292.  
  1293. ;--------------------------------
  1294. ; Set File Attribute func(228) (E4H)
  1295. ;
  1296. ; var
  1297. ;    RetCode, FcbAddr, Attribute : Integer;
  1298. ;
  1299. ; RetCode := fattr(FcbAddr, Attribute);
  1300. ;
  1301.  
  1302. fattr    proc    near
  1303.     push    bp
  1304.     mov    bp,sp
  1305.     push    ds
  1306.     lds    si,[bp+4]
  1307.     mov    cx,[si]  ;cx=attribute
  1308.     lds    dx,[bp+8];dx=address of fcb
  1309.     mov    ah,0E4h
  1310.     int    21h
  1311.     mov    ah,0
  1312.     pop    ds
  1313.     pop    bp
  1314.     ret
  1315. fattr    endp
  1316.  
  1317.  
  1318.  
  1319.  
  1320.  
  1321. ;--------------------------------
  1322. ; Update file size func(229) (E5H)
  1323. ;
  1324. ; var
  1325. ;    ErrCode,FcbAddr : Integer;
  1326. ;
  1327. ; ErrCode := updfcb(FcbAddr);
  1328. ;
  1329.  
  1330. updfcb    proc    near
  1331.     mov    ah,0E5H
  1332.     call    arg1f
  1333.     ret    4
  1334. updfcb    endp
  1335.  
  1336.  
  1337.  
  1338.  
  1339.  
  1340. ;--------------------------------
  1341. ; Copy File to File func(230) (E6H)
  1342. ;
  1343. ; var
  1344. ;    RetCode,FcbSource,FcbDest : Integer;
  1345. ;    CountLow, CountHigh      : Integer;
  1346. ;
  1347. ; RetCode := cpyfile(FcbSource, FcbDest, CountLow, CountHigh)
  1348. ;
  1349. ;
  1350.  
  1351. cpyfile proc    near            
  1352.     mov    ah,0E6h
  1353.     push    bp
  1354.     mov    bp,sp
  1355.     push    ds
  1356.     push    es
  1357.     lds    si,[bp+4]           ;addr of the high byte cnt
  1358.     mov    dx,[si]             ;dx=high word of byte cnt
  1359.     lds    si,[bp+8]           ;addr low word of byte cnt
  1360.     mov    cx,[si]             ;cx=low 16 bits of count
  1361.     les    di,[bp+12]          ;address of dest fcb
  1362.     lds    si,[bp+16]          ;address of the source fcb
  1363.     int    21h
  1364.     mov    ah,0
  1365.     pop    es
  1366.     pop    ds
  1367.     pop    bp
  1368.     ret    16
  1369. cpyfile endp
  1370.  
  1371.  
  1372.  
  1373.  
  1374.  
  1375. ;--------------------------------
  1376. ; get time / date string func(231) (E7H)
  1377. ;
  1378. ; var
  1379. ;    time : String[n];
  1380. ;
  1381. ; nettod(time);
  1382. ;
  1383. ; where time is a string of the form Y M D H M S
  1384. ;
  1385.  
  1386. nettod    proc    near
  1387.     mov    ah,0E7h
  1388.     call    arg1a
  1389.     ret    4
  1390. nettod    endp
  1391.  
  1392.  
  1393.  
  1394.  
  1395.  
  1396. ;--------------------------------
  1397. ; Set Close mode func(232) (E8H)
  1398. ;
  1399. ; var
  1400. ;    mode : Integer;
  1401. ;
  1402. ; clsmode(mode);
  1403. ;
  1404.  
  1405. clsmode proc    near
  1406.     mov    ah,0E8H
  1407.     call    arg1wor
  1408.     ret    4
  1409. clsmode endp
  1410.  
  1411.  
  1412.  
  1413.  
  1414.  
  1415.  
  1416. ;--------------------------------
  1417. ; Shell Base Status func(233) (E9H)
  1418. ;
  1419. ; var
  1420. ;    RetFlags, drive : Integer;
  1421. ;
  1422. ; RetFlags := drvmap(drive);
  1423. ;
  1424.  
  1425. drvmap    proc    near
  1426.     mov    ax,0E900h
  1427.     call    arg1
  1428.     ret    4
  1429. drvmap    endp
  1430.  
  1431.  
  1432.  
  1433.  
  1434.  
  1435.  
  1436. ;--------------------------------
  1437. ; Return Shell Version func(234) (EAH)
  1438. ;
  1439. ; var
  1440. ;    RetCode, Mode : Integer;
  1441. ;    EnvirStr      : String[n];
  1442. ;
  1443. ; RetCode := retshl(EnvirStr, Mode);
  1444. ;
  1445.  
  1446. retshl    proc    near
  1447.     push    bp
  1448.     mov    bp,sp
  1449.     push    ds
  1450.     push    es
  1451.     les    di,[bp+8]     ;set es:di to point at the buffer
  1452.     inc    di          ;point di at the start of the data area
  1453.     lds    si,[bp+4]     ;put the mode into al
  1454.     mov    ax,[si]
  1455.     mov    ah,0EAh
  1456.     int    21h
  1457.     mov    ah,00h
  1458.      pop     es
  1459.      pop     ds
  1460.      pop     bp
  1461.     ret    8
  1462. retshl    endp
  1463.  
  1464.  
  1465.  
  1466.  
  1467.  
  1468. ;--------------------------------
  1469. ; ascii log File (235) (EB)
  1470. ;
  1471. ; var
  1472. ;    RetCode, Flags, TimeOut : Integer;
  1473. ;    Asciiz            : String[n];
  1474. ;
  1475. ; RetCode := asclog(Flags, TimeOut, Asciiz);
  1476. ;
  1477.  
  1478. asclog    proc    near
  1479.     push    bp
  1480.     mov    bp,sp
  1481.     push    ds
  1482.     lds    si,[bp+12]
  1483.     mov    ax,[si]           ;flags into al
  1484.     lds    dx,[bp+4]         ;pointer to the asciiz string
  1485.     lds    si,[bp+8]
  1486.     mov    bp,[si]           ;time out into bp
  1487.     mov    ah,0EBH
  1488.     int    21h
  1489.     mov    ah,00h
  1490.      pop     ds
  1491.      pop     bp
  1492.     ret    12
  1493. asclog    endp
  1494.  
  1495.  
  1496.  
  1497.  
  1498.  
  1499. ;--------------------------------
  1500. ; ASCIIZ file unlock (236) (EC)
  1501. ;
  1502. ; var
  1503. ;    RetCode : Integer;
  1504. ;    Asciiz    : String[n];
  1505. ;
  1506. ; RetCode := asculkf(Asciiz);
  1507. ;
  1508.  
  1509. asculkf proc    near
  1510.     mov    ah,0ECH
  1511.     call    arg1a
  1512.     ret    4
  1513. asculkf endp
  1514.  
  1515.  
  1516.  
  1517.  
  1518.  
  1519. ;--------------------------------
  1520. ; ASCIIZ Clear file func(237) (EDH)
  1521. ;
  1522. ; var
  1523. ;    RetCode : Integer;
  1524. ;    Asciiz    : String[n];
  1525. ;
  1526. ; RetCode := ascclrf(Asciiz);
  1527. ;
  1528.  
  1529. ascclrf proc    near
  1530.     mov    ah,0EDH
  1531.     call    arg1a
  1532.     ret    4
  1533. ascclrf endp
  1534.  
  1535.  
  1536.  
  1537.  
  1538.  
  1539. ;--------------------------------------------
  1540. ;
  1541. ; Get Physical Station Number  EEH
  1542. ;
  1543. ; var
  1544. ;    StationNo : Integer;
  1545. ;
  1546. ; StationNo := Get_PSN;
  1547. ;
  1548.  
  1549. Get_PSN proc    near
  1550.  
  1551.     mov    ah,0EEh
  1552.     int    21h
  1553.     mov    ah,0
  1554.     ret
  1555. Get_PSN endp
  1556.  
  1557.  
  1558.  
  1559.  
  1560.  
  1561. ;-----------------------------------------------------
  1562. ;
  1563. ; Get Shell Table Addresses (239) EFH
  1564. ;
  1565. ; var
  1566. ;    Mode,Segment,Offset : Integer;
  1567. ;
  1568. ; Get_STA(Mode,Segment,Offset);
  1569. ;
  1570.  
  1571. Get_STA proc    near
  1572.     push    bp
  1573.     mov    bp,sp
  1574.     push    es
  1575.     push    ds
  1576.     mov    si,[bp+12]        ;get the mode
  1577.     mov    ax,[si]
  1578.     mov    ah,0EFh         ;set the function
  1579.     int    21h
  1580.     lds    di,[bp+8]        ;store the segment location
  1581.     mov    [di],es
  1582.     lds    di,[bp+4]        ;store the offset location
  1583.     mov    [di],si
  1584.     pop    ds
  1585.     pop    es
  1586.     pop    bp
  1587.     ret    12
  1588. Get_STA endp
  1589.  
  1590.  
  1591.  
  1592.  
  1593.  
  1594. ;-----------------------------------------------
  1595. ;
  1596. ; Set Preferred File Server (240) F0H
  1597. ;
  1598. ; var
  1599. ;    RetServer, Mode, NewServ : Integer;
  1600. ;
  1601. ; RetServer := SetServ(Mode,NewServ);
  1602. ;
  1603.  
  1604. SetServ proc    near
  1605.     push    bp
  1606.     mov    bp,sp
  1607.     push    ds
  1608.     mov    si,[bp+8]        ;get the mode
  1609.     mov    ax,[si]
  1610.     mov    di,[bp+4]        ;set the preferred server number
  1611.     mov    dx,[di]
  1612.     mov    ah,0F0h         ;set the function
  1613.     int    21h
  1614.     mov    ah,0
  1615.     pop    ds
  1616.     pop    bp
  1617.     ret    6
  1618. SetServ endp
  1619.  
  1620.  
  1621.  
  1622.  
  1623.  
  1624. ;-----------------------------------------------------------
  1625. ;
  1626. ; Attach/Detach To File Server (241) F1H
  1627. ;
  1628. ; var
  1629. ;    RetCode, Mode, NewServ : Integer;
  1630. ;
  1631. ; RetCode := ModServ(Mode,NewServ);
  1632. ;
  1633.  
  1634. ModServ proc    near
  1635.     push    bp
  1636.     mov    bp,sp
  1637.     push    ds
  1638.     lds    si,[bp+8]        ;get the mode
  1639.     mov    ax,[si]
  1640.     lds    di,[bp+4]        ;set the preferred server number
  1641.     mov    dx,[di]
  1642.     mov    ah,0F1h         ;set the function
  1643.     int    21h
  1644.     mov    ah,0
  1645.     pop    ds
  1646.     pop    bp
  1647.     ret    6
  1648. ModServ endp
  1649.  
  1650.  
  1651.  
  1652.  
  1653.  
  1654. ;-------------------------------
  1655. ; Place a single integer argument into dx
  1656. ; with a return code
  1657.  
  1658. arg1    proc    near
  1659.     push    bp
  1660.     mov    bp,sp
  1661.     push    ds
  1662.     lds    si,[bp+6]
  1663.     mov    dx,[si]    ;dx gets the argument
  1664.     int    21h
  1665.     mov    ah,0       ;clear ah for al return code
  1666.     pop    ds
  1667.     pop    bp
  1668.     ret
  1669. arg1    endp
  1670.  
  1671.  
  1672.  
  1673.  
  1674.  
  1675. ;--------------------------------
  1676. ; Place a single integer argument into bp
  1677. ; for use with time outs - with a return code
  1678.  
  1679. arg1t    proc    near
  1680.     push    bp
  1681.     mov    bp,sp
  1682.     push    ds
  1683.     lds    si,[bp+6]
  1684.     mov    bp,[si]    ;dx gets the argument
  1685.     int    21h
  1686.     mov    ah,0       ;clear ah for al return code
  1687.     pop    ds
  1688.     pop    bp
  1689.     ret
  1690. arg1t    endp
  1691.  
  1692.  
  1693.  
  1694.  
  1695.  
  1696.  
  1697. ;--------------------------------
  1698. ; Process an fcb address in a
  1699. ; function call with a return code
  1700.  
  1701. arg1f    proc    near
  1702.     push    bp
  1703.     mov    bp,sp
  1704.     push    ds
  1705.     lds    dx,[bp+6]      ;dx gets the argument
  1706.     int    21h
  1707.     mov    ah,0           ;clear ah for al return code
  1708.     pop    ds
  1709.     pop    bp
  1710.     ret
  1711. arg1f    endp
  1712.  
  1713.  
  1714.  
  1715.  
  1716.  
  1717. ;--------------------------------
  1718. ; Process a single string argument in a
  1719. ; function call with a return code
  1720.  
  1721. arg1a    proc    near
  1722.     push    bp
  1723.     mov    bp,sp
  1724.     push    ds
  1725.     lds    dx,[bp+6]     ;ptr to parameter string
  1726.     int    21h
  1727.     mov    ah,0          ;clear ah for al return code
  1728.     pop    ds
  1729.     pop    bp
  1730.     ret
  1731. arg1a    endp
  1732.  
  1733.  
  1734.  
  1735.  
  1736.  
  1737.  
  1738. ;----------------------------
  1739. ; Perform a single integer argument
  1740. ; but without a return code
  1741.  
  1742. arg1wor proc    near
  1743.     push    bp
  1744.     mov    bp,sp
  1745.     push    ds
  1746.     lds    si,[bp+6]
  1747.     mov    dx,[si]       ;dx gets the arg (or ptr)
  1748.     int    21h
  1749.     pop    ds
  1750.     pop    bp
  1751.     ret
  1752. arg1wor endp
  1753.  
  1754.  
  1755.  
  1756.  
  1757.  
  1758.  
  1759. ;----------------------------
  1760. ; Perform a single string argument
  1761. ; but without a return code
  1762.  
  1763. arg1awor proc    near
  1764.     push    bp
  1765.     mov    bp,sp
  1766.     push    ds
  1767.     lds    dx,[bp+6]
  1768.     inc    dx          ;add 1 to get the start of the string
  1769.     int    21h
  1770.     pop    ds
  1771.     pop    bp
  1772.     ret
  1773. arg1awor endp
  1774.  
  1775.  
  1776.  
  1777.  
  1778.  
  1779.  
  1780. ;----------------------------
  1781. ; Handle a request$ and reply$ function
  1782. ; with error code
  1783.  
  1784. req_rep proc    near
  1785.     push    bp
  1786.     mov    bp,sp
  1787.     push    ds
  1788.     push    es
  1789.     lds    si,[bp+10]       ;ptr to req. string
  1790.     inc    si            ;add 1 to get the address of the string
  1791.     les    di,[bp+6]       ;ptr to var desc block for reply buf
  1792.     inc    di            ;add 1 to get the address of the string
  1793.     pushf                  ;save the direction flag
  1794.     int    21h
  1795.     popf
  1796.     mov    ah,0
  1797.     pop    es
  1798.     pop    ds
  1799.     pop    bp
  1800.     ret
  1801. req_rep endp
  1802.  
  1803.  
  1804.  
  1805. cseg    ends
  1806.     end
  1807.